#!
print "method1----------------:\n";
print $_,"\n" while(<*.*>);

print "method2---------------:\n";
@files = glob("*.*");
print join "\n",@files;

print "\nmethod3:---------------\n";
@list = `dir/b`;
print @list;

